home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #9 / utv1n9s1.d64 / magic monkeys (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  657b  |  16 lines
  1. 100 rem*********************************
  2. 200 rem     magic monkeys           *     by  ian  adam           *
  3. 250 rem*********************************
  4. 300 poke 53280,0:poke 53281,0:print"[147]"tab(90)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  5. 310 for i=1 to 9:print tab(10) "[221]" tab(28) "[221]":next
  6. 320 print tab(10) "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][153]"
  7. 330 print tab(177) "[205]agic":printtab(16)"[205]onkeys"
  8. 340 print tab(54) "[154][193]re  [195]oming":printtab(15)"[217]our [215]ay!"
  9. 350 print tab(205) "[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  10. 360 for i=1 to 7:print tab(5) "[221]" tab(33) "[221]":next
  11. 370 print tab(5) "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  12. 380 print"[145][145][145][145][145][145][145][150] "tab(12) "(c) by [201]an [193]dam"
  13. 390 print tab(11) "[214]ancouver [194][195] 1987"
  14. 400 print tab(53) "[154][208]ublished by:":print tab(7) "[211]oftdisk [208]ublishing, [201]nc."
  15. 520 load"monkeys.exe",8,1
  16.